perm filename TTYIN.NEW[1,JRA] blob sn#026656 filedate 1973-02-22 generic text, type T, neo UTF8
00010	(OPS(SETZM 402000)(TTYOP 051000))
00020	
00100	(LAP TTYIN SUBR)
00200	(TTYOP 2,1)
00300	(JRST 0 LL1)
00400	(CAIN 1,40)
00500	(POPJ P 0)
00600	LL1(SETZM 0 1)
00700	(POPJ  P 0)
00800	NIL